(ns kudryashov.projecteuler.p5.problem5)

(def divs (range 1 11))

(defn evenly? [a divisors]
  (every? #(zero? (rem a %))
            divisors))

(defn euler5 [divisors]
  (first (drop-while
    #(do
      (println %)
      (not (evenly? % divisors)))
    (iterate inc 1))))

(time (println (euler5 (range 1 21))))